home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / Q1.bas < prev    next >
BASIC Source File  |  2012-02-16  |  8KB  |  303 lines
  1. 0  HOME 
  2. 100  HGR : HCOLOR= 3
  3. 110  HPLOT 120,65 TO 50,100 TO 50,40 TO 120,5 TO 190,40 TO 190,100 TO 120,65
  4. 112  HPLOT 121,66 TO 49,101 TO 49,39 TO 120,4 TO 191,39 TO 191,101 TO 121,66
  5. 120  HPLOT 120,6 TO 120,65
  6. 121  HPLOT 121,6 TO 121,65
  7. 140  REM      draw ap
  8. 145 X% = 111:Y% = 59
  9. 150  GOSUB 9800
  10. 160  REM       write ang
  11. 162 X% = 158:Y% = 17
  12. 164  GOSUB 10900
  13. 166 X% = 165
  14. 168  GOSUB 10450
  15. 170 X% = 171
  16. 172  GOSUB 10250
  17. 174 X% = 177
  18. 176  GOSUB 10400
  19. 178 X% = 180
  20. 180  GOSUB 10150
  21. 200  REM        =
  22. 202 X% = 190
  23. 204  GOSUB 11400
  24. 206  REM       90
  25. 208 X% = 200
  26. 210  GOSUB 11350
  27. 212 X% = 206
  28. 214  GOSUB 11300
  29. 216 X% = 212
  30. 218  GOSUB 11450
  31. 300  REM      answers
  32. 302  REM      a. eight
  33. 304 X% = 5:Y% = 130
  34. 306  GOSUB 10000
  35. 308  HPLOT 11,130
  36. 310 X% = 17
  37. 312  GOSUB 10150
  38. 314 X% = 23
  39. 316  GOSUB 10350
  40. 318 X% = 26
  41. 320  GOSUB 10250
  42. 322 X% = 32
  43. 324  GOSUB 10300
  44. 326 X% = 38
  45. 328  GOSUB 10650
  46. 342  REM       b. three after 20
  47. 344 X% = 58
  48. 346  GOSUB 11200
  49. 348  HPLOT 64,130
  50. 350 X% = 70
  51. 352  GOSUB 10650
  52. 354 X% = 75
  53. 356  GOSUB 10300
  54. 358 X% = 81
  55. 360  GOSUB 10600
  56. 362 X% = 87
  57. 364  GOSUB 10150
  58. 366 X% = 93
  59. 368  GOSUB 10150
  60. 370  REM       c. four after 20
  61. 372 X% = 113
  62. 374  GOSUB 10050
  63. 376  HPLOT 119,130
  64. 378 X% = 125
  65. 380  GOSUB 10200
  66. 382 X% = 131
  67. 384  GOSUB 10500
  68. 386 X% = 137
  69. 388  GOSUB 10700
  70. 390 X% = 143
  71. 392  GOSUB 10600
  72. 400  REM      d. help
  73. 402 X% = 163
  74. 404  GOSUB 10100
  75. 406  HPLOT 169,130
  76. 408 X% = 175
  77. 410  GOSUB 10300
  78. 412 X% = 181
  79. 414  GOSUB 10150
  80. 416 X% = 187
  81. 418  GOSUB 10400
  82. 420 X% = 190
  83. 422  GOSUB 10550
  84. 500  REM       ?
  85. 501  PRINT : PRINT 
  86. 502  VTAB (21): PRINT "Given the angle between these two       mirrors, how many images will you see?"
  87. 504  GET KY$: CALL 62450
  88. 508  IF KY$ = "d"  OR KY$ = "D"  THEN  GOSUB 2550
  89. 510  IF KY$ = "b"  OR KY$ = "B"  THEN  GOSUB 2600
  90. 512  IF KY$ = "a"  OR KY$ = "A"  OR KY$ = "c"  OR KY$ = "C"  THEN  GOSUB 2500
  91. 513  PRINT 
  92. 514  PRINT "Please enter either <a>, <b>, <c>, or   <d> only."
  93. 516  FOR I = 0 TO 800
  94. 518 J = 1
  95. 520  NEXT I
  96. 522  GOTO 0
  97. 2000  END 
  98. 2500  HOME : TEXT 
  99. 2502  PRINT : PRINT : PRINT : PRINT 
  100. 2504  PRINT "Sorry, WRONG answer.  Please wait a     moment to try again...."
  101. 2506  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  102. 2508  GOSUB 3000
  103. 2510  GOTO 0
  104. 2550  HOME : TEXT 
  105. 2552  PRINT : PRINT : PRINT : PRINT 
  106. 2554  PRINT "Remember, taking 360 divided by the     angle between the two mirrors and       subtracting one from that total will    give the number of images."
  107. 2556  PRINT : PRINT : PRINT 
  108. 2557  PRINT "  360   "
  109. 2558  PRINT "-------   -  1  =  number of images"
  110. 2559  PRINT " angle"
  111. 2560  PRINT : PRINT : PRINT 
  112. 2562  PRINT "Enter any key when you are ready to     try again."
  113. 2564  GET KY$
  114. 2566  GOTO 0
  115. 2600  HOME : TEXT 
  116. 2602  PRINT : PRINT : PRINT : PRINT 
  117. 2604  PRINT "You got it RIGHT!!  Hit any key to see  if you can get another correct answer."
  118. 2606  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT 
  119. 2608  GET KY$
  120. 2610  PRINT  CHR$(4);"run q2"
  121. 3000  FOR I = 0 TO 1800
  122. 3002 J = 1
  123. 3004  NEXT I
  124. 3006  RETURN 
  125. 9800  REM      draw ap
  126. 9802  HPLOT X% +3,Y% TO X% +4,Y%
  127. 9804  HPLOT X% +3,Y% +1 TO X% +5,Y% +1
  128. 9806  HPLOT X% +10,Y% +1 TO X% +11,Y% +1
  129. 9808  HPLOT X% +3,Y% +2 TO X% +6,Y% +2
  130. 9810  HPLOT X% +10,Y% +2 TO X% +11,Y% +2
  131. 9812  HPLOT X% +4,Y% +3 TO X% +7,Y% +3
  132. 9814  HPLOT X% +9,Y% +3 TO X% +10,Y% +3
  133. 9816  HPLOT X% +4,Y% +4 TO X% +10,Y% +4
  134. 9818  HPLOT X% +1,Y% +5 TO X% +16,Y% +5
  135. 9820  HPLOT X%,Y% +6 TO X% +17,Y% +6
  136. 9822  HPLOT X%,Y% +7 TO X% +17,Y% +7
  137. 9824  HPLOT X%,Y% +8 TO X% +17,Y% +8
  138. 9826  HPLOT X%,Y% +9 TO X% +17,Y% +9
  139. 9828  HPLOT X% +1,Y% +10 TO X% +16,Y% +10
  140. 9830  HPLOT X% +1,Y% +11 TO X% +16,Y% +11
  141. 9832  HPLOT X% +1,Y% +12 TO X% +16,Y% +12
  142. 9834  HPLOT X% +2,Y% +13 TO X% +15,Y% +13
  143. 9836  HPLOT X% +2,Y% +14 TO X% +15,Y% +14
  144. 9838  HPLOT X% +3,Y% +15 TO X% +14,Y% +15
  145. 9840  HPLOT X% +4,Y% +16 TO X% +13,Y% +16
  146. 9842  HPLOT X% +5,Y% +17 TO X% +7,Y% +17
  147. 9844  HPLOT X% +10,Y% +17 TO X% +12,Y% +17
  148. 9850  RETURN 
  149. 9999  REM     a
  150. 10000  HPLOT X%,Y% -1
  151. 10010  HPLOT X% +1,Y% TO X% +2,Y%
  152. 10020  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  153. 10030  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  154. 10040  HPLOT X% +3,Y% TO X% +3,Y% -3
  155. 10041  RETURN 
  156. 10049  REM     c
  157. 10050  HPLOT X%,Y% -1 TO X%,Y% -3
  158. 10060  HPLOT X% +1,Y% TO X% +3,Y%
  159. 10070  HPLOT X% +1,Y% -4 TO X% +3,Y% -4
  160. 10071  RETURN 
  161. 10099  REM     d
  162. 10100  HPLOT X%,Y% -1 TO X%,Y% -3
  163. 10110  HPLOT X% +1,Y% TO X% +2,Y%
  164. 10120  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  165. 10130  HPLOT X% +3,Y% TO X% +3,Y% -6
  166. 10131  RETURN 
  167. 10149  REM     e
  168. 10150  HPLOT X%,Y% -1 TO X%,Y% -3
  169. 10160  HPLOT X% +1,Y% TO X% +3,Y%
  170. 10170  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  171. 10180  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  172. 10190  HPLOT X% +3,Y% -3
  173. 10191  RETURN 
  174. 10199  REM     f
  175. 10200  HPLOT X%,Y% -3 TO X% +2,Y% -3
  176. 10210  HPLOT X% +1,Y% TO X% +1,Y% -5
  177. 10220  HPLOT X% +2,Y% -6 TO X% +3,Y% -6
  178. 10221  RETURN 
  179. 10249  REM     g
  180. 10250  HPLOT X%,Y% -1 TO X%,Y% -3
  181. 10260  HPLOT X% +1,Y% TO X% +2,Y%
  182. 10270  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  183. 10280  HPLOT X% +3,Y% +2 TO X% +3,Y% -3
  184. 10290  HPLOT X% +1,Y% +3 TO X% +2,Y% +3
  185. 10291  RETURN 
  186. 10299  REM     h
  187. 10300  HPLOT X%,Y% TO X%,Y% -6
  188. 10310  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  189. 10320  HPLOT X% +3,Y% TO X% +3,Y% -3
  190. 10321  RETURN 
  191. 10349  REM     i
  192. 10350  HPLOT X%,Y% TO X%,Y% -3
  193. 10360  HPLOT X%,Y% -5
  194. 10361  RETURN 
  195. 10399  REM     l
  196. 10400  HPLOT X%,Y% TO X%,Y% -6
  197. 10401  RETURN 
  198. 10449  REM     n
  199. 10450  HPLOT X%,Y% TO X%,Y% -4
  200. 10460  HPLOT X% +1,Y% -3
  201. 10470  HPLOT X% +2,Y% -4
  202. 10480  HPLOT X% +3,Y% TO X% +3,Y% -3
  203. 10481  RETURN 
  204. 10499  REM     o
  205. 10500  HPLOT X%,Y% -1 TO X%,Y% -3
  206. 10510  HPLOT X% +1,Y% TO X% +2,Y%
  207. 10520  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  208. 10530  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  209. 10531  RETURN 
  210. 10549  REM     p
  211. 10550  HPLOT X%,Y% +3 TO X%,Y% -4
  212. 10560  HPLOT X% +1,Y% TO X% +2,Y%
  213. 10570  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  214. 10580  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  215. 10581  RETURN 
  216. 10599  REM      r
  217. 10600  HPLOT X%,Y% TO X%,Y% -4
  218. 10610  HPLOT X% +1,Y% -3
  219. 10620  HPLOT X% +2,Y% -4 TO X% +3,Y% -4
  220. 10621  RETURN 
  221. 10649  REM      t
  222. 10650  HPLOT X%,Y% -4
  223. 10660  HPLOT X% +1,Y% TO X% +1,Y% -6
  224. 10670  HPLOT X% +2,Y% -4
  225. 10671  RETURN 
  226. 10699  REM      u
  227. 10700  HPLOT X%,Y% -1 TO X%,Y% -4
  228. 10710  HPLOT X% +1,Y%
  229. 10720  HPLOT X% +2,Y% -1
  230. 10730  HPLOT X% +3,Y% TO X% +3,Y% -4
  231. 10731  RETURN 
  232. 10899  REM       A
  233. 10900  HPLOT X%,Y% TO X%,Y% -4
  234. 10910  HPLOT X% +1,Y% -5 TO X% +2,Y% -6
  235. 10920  HPLOT X% +3,Y% -5
  236. 10930  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  237. 10940  HPLOT X% +4,Y% TO X% +4,Y% -4
  238. 10941  RETURN 
  239. 10949  REM      I
  240. 10950  HPLOT X% +1,Y% TO X% +3,Y%
  241. 10960  HPLOT X% +2,Y% -1 TO X% +2,Y% -5
  242. 10970  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  243. 10971  RETURN 
  244. 10999  REM       L
  245. 11000  HPLOT X%,Y% TO X%,Y% -6
  246. 11010  HPLOT X% +1,Y% TO X% +4,Y%
  247. 11011  RETURN 
  248. 11049  REM       M
  249. 11050  HPLOT X%,Y% TO X%,Y% -6
  250. 11060  HPLOT X% +1,Y% -5
  251. 11070  HPLOT X% +2,Y% -3 TO X% +2,Y% -5
  252. 11080  HPLOT X% +3,Y% -5
  253. 11090  HPLOT X% +4,Y% TO X% +4,Y% -6
  254. 11091  RETURN 
  255. 11099  REM       R
  256. 11100  HPLOT X%,Y% TO X%,Y% -6
  257. 11110  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  258. 11120  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  259. 11130  HPLOT X% +4,Y% -4 TO X% +4,Y% -5
  260. 11140  HPLOT X% +4,Y% TO X% +2,Y% -2
  261. 11141  RETURN 
  262. 11149  REM       C
  263. 11150  HPLOT X%,Y% -1 TO X%,Y% -5
  264. 11160  HPLOT X% +1,Y% TO X% +3,Y%
  265. 11170  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  266. 11180  HPLOT X% +4,Y% -5
  267. 11190  HPLOT X% +4,Y% -1
  268. 11191  RETURN 
  269. 11199  REM      b
  270. 11200  HPLOT X%,Y% TO X%,Y% -6
  271. 11210  HPLOT X% +1,Y% TO X% +2,Y%
  272. 11230  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  273. 11240  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  274. 11241  RETURN 
  275. 11249  REM      3
  276. 11250  HPLOT X%,Y% TO X% +2,Y%
  277. 11260  HPLOT X%,Y% -6 TO X% +2,Y% -6
  278. 11270  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  279. 11280  HPLOT X% +3,Y% -1 TO X% +3,Y% -2
  280. 11290  HPLOT X% +3,Y% -4 TO X% +3,Y% -5
  281. 11291  RETURN 
  282. 11299  REM      0
  283. 11300  HPLOT X% +1,Y% TO X% +2,Y%
  284. 11310  HPLOT X%,Y% -1 TO X%,Y% -5
  285. 11320  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  286. 11330  HPLOT X% +3,Y% -1 TO X% +3,Y% -5
  287. 11331  RETURN 
  288. 11349  REM      9
  289. 11350  HPLOT X%,Y% -4 TO X%,Y% -5
  290. 11360  HPLOT X% +1,Y% -3 TO X% +2,Y% -3
  291. 11370  HPLOT X% +1,Y% -6 TO X% +2,Y% -6
  292. 11380  HPLOT X% +3,Y% TO X% +3,Y% -5
  293. 11381  RETURN 
  294. 11399  REM      =
  295. 11400  HPLOT X%,Y% -1 TO X% +3,Y% -1
  296. 11410  HPLOT X%,Y% -3 TO X% +3,Y% -3
  297. 11411  RETURN 
  298. 11449  REM      degree sign
  299. 11450  HPLOT X%,Y% -5
  300. 11460  HPLOT X% +1,Y% -4
  301. 11470  HPLOT X% +1,Y% -6
  302. 11480  HPLOT X% +2,Y% -5
  303. 11481  RETURN